## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"
| Country_Region | Deaths |
|---|---|
| United States | 217692 |
| Brazil | 152460 |
| India | 112161 |
| Mexico | 85285 |
| United Kingdom | 43293 |
| Italy | 36372 |
| Peru | 33577 |
| Spain | 33553 |
| France | 32876 |
| Iran | 29605 |
| Colombia | 28457 |
| Argentina | 25342 |
| Russia | 23350 |
| South Africa | 18309 |
| Chile | 13434 |
| Ecuador | 12306 |
| Indonesia | 12268 |
| Belgium | 10327 |
| Iraq | 10086 |
| Germany | 9739 |
| Country_Region | Weighted_Deaths |
|---|---|
| San Marino | 1e-03 |
| Peru | 1e-03 |
| Belgium | 1e-03 |
| Andorra | 1e-03 |
| Bolivia | 1e-03 |
| Brazil | 1e-03 |
| Spain | 1e-03 |
| Ecuador | 1e-03 |
| Chile | 1e-03 |
| Mexico | 1e-03 |
| United States | 1e-03 |
| United Kingdom | 1e-03 |
| Italy | 1e-03 |
| Panama | 1e-03 |
| Moldova | 1e-03 |
| Sweden | 1e-03 |
| Colombia | 1e-03 |
| Argentina | 1e-03 |
| France | 0e+00 |
| North Macedonia | 0e+00 |
| Country_Region | Weighted_Confirmed |
|---|---|
| San Marino | 0.023 |
| Peru | 0.026 |
| Belgium | 0.017 |
| Andorra | 0.041 |
| Bolivia | 0.012 |
| Brazil | 0.024 |
| Spain | NA |
| Ecuador | 0.009 |
| Chile | 0.025 |
| Mexico | 0.007 |
| United States | 0.024 |
| United Kingdom | NA |
| Italy | 0.006 |
| Panama | 0.029 |
| Moldova | 0.025 |
| Sweden | 0.010 |
| Colombia | 0.019 |
| Argentina | 0.021 |
| France | 0.012 |
| North Macedonia | 0.011 |
| Country_Region | Increase_Weighted_Deaths |
|---|---|
| Argentina | 0 |
| Bahamas | 0 |
| Montenegro | 0 |
| Moldova | 0 |
| Czech Republic | 0 |
| Costa Rica | 0 |
| Peru | 0 |
| Belgium | 0 |
| Bosnia and Herzegovina | 0 |
| Romania | 0 |
| Brazil | 0 |
| Jamaica | 0 |
| Israel | 0 |
| Iran | 0 |
| Mexico | 0 |
| Colombia | 0 |
| Hungary | 0 |
| Spain | 0 |
| North Macedonia | 0 |
| South Africa | 0 |
| Country_Region | Increase_Weighted_Confirmed |
|---|---|
| Vatican City | 8e-03 |
| Belgium | 1e-03 |
| San Marino | 1e-03 |
| Bahamas | 0e+00 |
| Armenia | 0e+00 |
| France | 0e+00 |
| Netherlands | 0e+00 |
| Argentina | 0e+00 |
| Slovenia | 0e+00 |
| Slovakia | 0e+00 |
| Luxembourg | 0e+00 |
| Switzerland | 0e+00 |
| Costa Rica | 0e+00 |
| North Macedonia | 0e+00 |
| Georgia | 0e+00 |
| Moldova | 0e+00 |
| Ireland | 0e+00 |
| Liechtenstein | 0e+00 |
| Jordan | 0e+00 |
| Bahrain | 0e+00 |
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p